home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / SERP.TCL < prev    next >
Encoding:
Text File  |  2002-06-14  |  2.7 KB  |  93 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   SERP
  6. #   das meiste kann vom Fighter uebernommen werden
  7. #   created:    14-Jan-2002 Peter
  8. #   
  9. #   (C) COPYRIGHT 2002 RADONLABS GMBH
  10. #
  11.  
  12. # differnce to fighters: explode as soon as collided
  13. proc serpwatch_handcontrol {} {
  14.  
  15.     # evtl auf normal zurueck
  16.     if {[.iskilled] == "true"} {
  17.         if {"distancechecker" == [.getreasonofdeath]} {
  18.             .announcestate distancedeath
  19.         } else {
  20.             .announcestate explode
  21.         }
  22.       } elseif {[.islifetimeover] == "true"} {
  23.          .announcestate explode
  24.     } elseif {[.iscollided] == "true"} {
  25.         .announcestate explode
  26.     } elseif {[.iscrashed] == "true"} {
  27.         .announcestate explode
  28.     } elseif {[.ishandcontrol] == "false"} {
  29.         .announcestate normal
  30.     } elseif {[.isturbomove] == "true"} {
  31.         .announcestate handcontrolturbo
  32.     }
  33. }
  34.  
  35. proc serpwatch_handcontrolturbo {} {
  36.  
  37.     # evtl auf normal zurueck
  38.     if {[.iskilled] == "true"} {
  39.         .announcestate explode
  40.       } elseif {[.islifetimeover] == "true"} {
  41.          .announcestate explode
  42.     } elseif {[.iscrashed] == "true"} {
  43.         .announcestate explode
  44.     } elseif {[.iscollided] == "true"} {
  45.         .announcestate explode
  46.     } elseif {[.ishandcontrol] == "false"} {
  47.         .announcestate normal
  48.     } elseif {[.isstatetimeover] == "true"} {
  49.         .announcestate handcontrol
  50.     }
  51. }
  52.  
  53. proc serpwatch_goto {} {
  54.  
  55.     set ttype  [lindex [.gettarget] 0]
  56.     if {"vehicle" == $ttype} {
  57.         set target [lindex [.gettarget] 1]
  58.     } else {
  59.         set target "null"
  60.     }
  61.  
  62.     if {[.iskilled] == "true"} {
  63.         .announcestate explode
  64.       } elseif {[.islifetimeover] == "true"} {
  65.          .announcestate explode
  66.     } elseif {[.iscollided] == "true"} {
  67.         .announcestate explode
  68.     } elseif {[.iscrashed] == "true"} {
  69.         .announcestate explode
  70.     } elseif {[.ishandcontrol] == "true"} {
  71.         .announcestate handcontrol
  72.     } elseif {[.getavoidcollisionkind] != "nothing"} {
  73.         # Vor Zielrelevanten Sachen machen! Wenn wir auf unsere garage 
  74.         # zufliegen, dann wird kein Ausweichen gemeldet (das weiis das avoidmodul)
  75.         .pushstate
  76.         .announcestate avoidcollision
  77.     } elseif {[.hastarget] == "false"} {
  78.         .announcestate waitsearch
  79.     } elseif {[.reachedtarget] == "true"} {
  80.     
  81.         # at garage?
  82.         if {[.getgarage] == $target} {
  83.             .announcestate approachgarage
  84.         }
  85.         
  86.         # break off formation, give free members my target
  87.         .givetargettomembers false
  88.     } elseif {[.isturbomode] == "true"} {
  89.         .announcestate gototurbo
  90.     }
  91. }
  92.  
  93.